library(tidyverse)

gráfico interativo

dados <- abjData::muni %>%
  count(uf_sigla) %>%
  mutate(uf_sigla = forcats::fct_reorder(uf_sigla, n))

ggplot_ufs <- dados %>%
  ggplot() +
  geom_col(aes(x = n, y = uf_sigla)) +
  theme_light()

# transformar um objeto ggplot em um plotly
plotly::ggplotly(ggplot_ufs)